home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / datafile.sfx / dfmail (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  5KB  |  171 lines
  1. 1000 REM DATAFILE 2.9 SUBPROGRAM DFMAIL BY MIKE KONSHAK
  2. 1002 REM FOR 1525E,MPS801,GEMINI10X,OKIDATA92A,EPSONRX80 AND OTHERS
  3. 1004 IFT%=0THENT%=6
  4. 1006 IFLW=0THENLW=32
  5. 1008 OPEN4,4:GOSUB1280:GOTO1102
  6. 1010 REM LOAD SUBPROGRAM
  7. 1012 PRINT"[147]       LOADING MAIN PROGRAM"
  8. 1014 LOAD"DATAFILE",8
  9. 1016 PRINT"[147]  LOADING REPORT/LISTING SUBPROGRAM"
  10. 1017 LOAD"DFREPORT",8
  11. 1018 PRINT"[147]  LOADING CALCULATIONS SUBPROGRAM"
  12. 1019 LOAD"DFCALC",8
  13. 1020 REM QUIT ROUTINE
  14. 1022 PRINT"[147]QUITTING NOW WILL ERASE CURRENT DATA"
  15. 1024 PRINT"ARE YOU SURE YOU WANT TO QUIT?":PRINT" Y[146] OR N[146] ?
  16. 1026 [161]A$:[139]A$[178]""[167]1026
  17. 1028 [139]A$[178]"N"[167]1102
  18. 1030 [139]A$[178]"Y"[167]1034
  19. 1032 [137]1026
  20. 1034 [160]4:[153]"LOADSUBPROGRAM TERMINATED"
  21. 1036 [153]"DATAFILEWAIT BY MIKE KONSHAK (C)1983":[128]
  22. 1038 [143] SEARCH ROUTINES
  23. 1040 [153]"LOAD            PRINT OPTIONS MENU        "
  24. 1042 [153]"    AWAITLL RECORDS IN FILE
  25. 1044 PRINT"    S[146]ELECT INDIVIDUAL RECORD
  26. 1046 [153]"    FWAITIND RECORDS WITH COMMON FIELDS
  27. 1048 PRINT"    E[146]XIT TO MAIN MENU
  28. 1050 [153]"       PRESS THE APPROPRIATE KEY       "
  29. 1052 [161]C$:[139]C$[178]""[167]1052
  30. 1054 [139]C$[178]"A"[167]1098
  31. 1056 [139]C$[178]"S"[167]1066
  32. 1058 [139]C$[178]"F"[167]1074
  33. 1060 [139]C$[178]"E"[167]1102
  34. 1062 [137]1052
  35. 1064 [143] SELECT INDIVIDUAL RECORD
  36. 1066 [133]"PRINT WHICH RECORD";I$:I[178][197](I$)
  37. 1068 [139]I[177]X[167][153]"NO SUCH RECORD EXISTS,TRY AGAINONONON":[137]1066
  38. 1070 [141]1268:[137]1040
  39. 1072 [143] FIND COMMON RECORDS
  40. 1074 [153]"LOAD     FIND RECORDS WITH COMMON ITEMS    "
  41. 1076 [129]N[178]1[164]F:[153]" ";N;"WAIT ";F$(N):[130]N
  42. 1078 [133]"WHICH FIELD IS TO BE SEARCHED";SF
  43. 1080 [139]SF[179]0[176]SF[177]F[167][153]"ONONON":[137]1078
  44. 1082 [153]"ENTER COMMON ITEMWAIT ":[153]"(THE ENTIRE STRING IS NOT REQUIRED)"
  45. 1084 [153]"";F$(SF);"WAIT ";:[133]T$
  46. 1086 [129]I[178]1[164]X
  47. 1088 [153]"SEARCHING RECORD";I;"ONON"
  48. 1090 [139]T$[178][200](REC$(K%(I),SF),[195](T$))[167][141]1268
  49. 1092 [130]I
  50. 1094 [137]1040
  51. 1096 [143] PRINT ALL RECORDS
  52. 1098 [153]"LOAD":[129]I[178]1[164]X:[153]"ON PRINTING RECORD #";I:[141]1268:[130]I:[137]1040
  53. 1100 [143] MAILING LABELS MENU
  54. 1102 [153]"LOAD         MAILING LABELS MENU           "
  55. 1104 [153]"      PWAITRE-DEFINED FORMAT OR"
  56. 1106 [153]"      DWAITEFINE NEW FORMAT"
  57. 1108 [153]"      CWAITHANGE LABEL SIZE"
  58. 1110 [153]"      EWAITXIT TO MAIN PROGRAM OR"
  59. 1112 [153]"      RWAITEPORT/LISTING PROGRAM"
  60. 1113 [143] ?"      CWAITALCULATED REPORTS PROGRAM"
  61. 1114 [153]"      QWAITUIT PROGRAM"
  62. 1116 [153]"       PRESS THE APPROPRIATE KEY       "
  63. 1118 [161]C$:[139]C$[178]""[167]1118
  64. 1120 [139]C$[178]"P"[167]1220
  65. 1122 [139]C$[178]"C"[167][141]1280:[137]1102
  66. 1124 [139]C$[178]"E"[167][160]4:[137]1012
  67. 1126 [139]C$[178]"R"[167][160]4:[137]1016
  68. 1127 [143] IFC$="C"THENCLOSE4:GOTO1018
  69. 1128 [139]C$[178]"D"[167]1136
  70. 1130 [139]C$[178]"Q"[167]1022
  71. 1132 [137]1118
  72. 1134 [143] MAILING LIST FORMAT
  73. 1136 [153]"LOAD         MAILING LIST FORMAT           "
  74. 1138 [153]"  THIS FORMAT USES SINGLE ROW LABELS.
  75. 1140 PRINT"EACH LABEL CONTAINS UP TO"T%-1"ROWS.
  76. 1142 [153]"EACH ROW CAN CONSIST OF 1TO 3 FIELDS.
  77. 1144 PRINT"IF THE LENGTH OF MULTIPLE ITEMS EXCEEDS
  78. 1146 [153]"CMD"LW"CHARACTERS, SOME DATA WILL BE CUTOFF"
  79. 1148 [153]"NUMBER OF ROWS?":[153]"?   CMDCMDCMD";RW:[133]"ON";RW
  80. 1150 [139]RW[177]T%[171]1[167][153]"ONONON":[137]1148
  81. 1152 [139]RW[178]0[167]1102
  82. 1154 [153]"LOADCHOOSE WHICH FIELDS GO IN EACH ROW"
  83. 1156 [153]"ENTER 0WAIT IF ADDITIONAL FIELDS ARE":[153]"NOT DESIRED."
  84. 1158 [129]N[178]1[164]F:[153]"";N;"WAIT";F$(N):[130]N
  85. 1160 [129]J[178]1[164]RW:[153]"";[163]25)"ROW";J;""
  86. 1162 [129]L[178]1[164]3:[153][163]25)"ONFIELD";L;" 0 CMDCMD";ML$(J,L)
  87. 1164 [153][163]32);"ON";:[133]ML$(J,L)
  88. 1166 [130]L
  89. 1168 [130]J
  90. 1170 [153]"LOADDO YOU WISH TO REVIEW YOUR FORMAT AND/OR"
  91. 1172 [153]"MAKE CORRECTIONS?  PRESS YWAIT OR NWAIT"
  92. 1174 [161]A$:[139]A$[178]""[167]1174
  93. 1176 [139]A$[178]"Y"[167]1136
  94. 1178 [139]A$[178]"N"[167]1184
  95. 1180 [137]1174
  96. 1182 [143] SAVE MAILING LABEL FORMAT
  97. 1184 [153]"SAVE FORMATWAIT?             YWAIT OR NWAIT"
  98. 1186 [161]A$:[139]A$[178]""[167]1186
  99. 1188 [139]A$[178]"N"[167]1246
  100. 1190 [139]A$[178]"Y"[167]1194
  101. 1192 [137]1186
  102. 1194 [153]"SAVE UNDER WHAT FILE NAME?"
  103. 1196 [153]"  ";NF$:[133]"ON";NF$:[139]NF$[178]""[167]1102
  104. 1198 [159]15,8,15:[152]15,"S0:ML] "[170]NF$:[141]1316:[139]ET[178]8[167]1102
  105. 1200 [159]5,8,5,"0:ML] "[170]NF$[170]",S,W":[141]1316:[139]ET[178]8[167]1102
  106. 1202 [152]5,RW
  107. 1204 [129]I[178]1[164]RW:[129]N[178]1[164]3
  108. 1206 [152]5,ML$(I,N):[141]1316:[139]ET[178]8[167]1102
  109. 1208 [130]N
  110. 1210 [130]I
  111. 1212 [152]5,"EOF":[141]1316:[139]ET[178]8[167]1102
  112. 1214 [160]5:[160]15
  113. 1216 [137]1246
  114. 1218 [143] LOAD MAILING LABEL FORMAT
  115. 1220 [153]"LOAD FORMAT FROM WHAT FILE?"
  116. 1222 [153]"  ";NF$:[133]"ON";NF$:[139]NF$[178]""[167]1102
  117. 1224 [159]15,8,15:[159]5,8,5,"0:ML] "[170]NF$[170]",S,R":[141]1316:[139]ET[178]8[167]1102
  118. 1225 [139]EN[178]62[167][141]1318:[137]1102
  119. 1226 [132]5,RW
  120. 1228 [129]I[178]1[164]RW:[129]N[178]1[164]3
  121. 1230 [132]5,ML$(I,N):[141]1316:[139]ET[178]8[167]1102
  122. 1232 [130]N
  123. 1234 [130]I
  124. 1236 S[178]ST:[139]S[179][177]0[167]1240
  125. 1238 [132]5,E$
  126. 1240 [160]5:[160]15
  127. 1242 [137]1170
  128. 1244 [143] PRINT SAMPLE LABELS
  129. 1246 [153]"LOADINSERT SINGLE ROW TRACTOR FEED LABELS"
  130. 1248 [153]"RUN TEST LABELS TO HELP POSITION LABELS
  131. 1250 PRINT"PRESS T[146]EST LABEL
  132. 1252 [153]"      CWAITHOOSE RECORDS
  133. 1253 PRINT"      E[146]XIT TO MENU
  134. 1254 [161]A$:[139]A$[178]""[167]1254
  135. 1256 [139]A$[178]"C"[167]1040
  136. 1257 [139]A$[178]"E"[167]1102
  137. 1258 [139]A$[179][177]"T"[167]1254
  138. 1260 [129]I[178]1[164]RW:[129]J[178]1[164]LW:[152]4,"*";:[130]J:[152]4,B1$;:[130]I
  139. 1262 [129]I[178]1[164]T%[171]RW:[152]4,B1$:[130]I
  140. 1264 [137]1246
  141. 1266 [143] PRINT LABELS
  142. 1268 [129]J[178]1[164]RW:F1[178][197](ML$(J,1)):F2[178][197](ML$(J,2)):F3[178][197](ML$(J,3))
  143. 1270 [152]4,[200](REC$(K%(I),F1)[170]B$[170]REC$(K%(I),F2)[170]B$[170]REC$(K%(I),F3),LW)
  144. 1272 [130]J
  145. 1274 [129]S[178]1[164]T%[171]RW:[152]4,B1$:[130]S
  146. 1276 [142]
  147. 1278 [143] CHOOSE LABEL SIZE
  148. 1280 [153]"LOAD             LABEL SIZE               WAIT"
  149. 1282 [153]"    SWAITTANDARD - 5 ROWS PER LABEL"
  150. 1284 [153]"      15/16 INCH BY 3 1/2 INCHES"
  151. 1286 [153]"    LWAITARGE    - 8 ROWS PER LABEL"
  152. 1288 [153]"      1 7/16 INCH BY 3 1/2 INCHES"
  153. 1290 [153]"    OWAITTHER    - CUSTOM LABEL SIZE OR"
  154. 1292 [153]"      NUMBER OF CHARACTERS PER ROW"
  155. 1294 [153]" NOTE: LABELS ARE SEPARATED BY ONE ROW"
  156. 1296 [153]" 32 CHARACTERS PER ROW IS STANDARD"
  157. 1298 [153]"       PRESS THE APPROPRIATE KEY       "
  158. 1300 [161]C$:[139]C$[178]""[167]1300
  159. 1302 [139]C$[178]"S"[167]T%[178]6:RW[178]5:LW[178]32:[142]
  160. 1304 [139]C$[178]"L"[167]Y%[178]9:RW[178]8:LW[178]32:[142]
  161. 1306 [139]C$[178]"O"[167]1310
  162. 1308 [137]1300
  163. 1310 [133]" ENTER NUMBER OF ROWS ON LABEL";RW:T%[178]RW[170]1
  164. 1312 [133]" ENTER # OF CHARACTERS PER ROW";LW:[142]
  165. 1314 [143] DISK ERROR CHECK
  166. 1316 [132]15,EN,EM$,ET,ES:[139](EN[179]20)[176](EN[178]62)[167]ET[178]0:[142]
  167. 1318 [153]" DISK ERRORWAIT"EN"CMD, "EM$","ET"CMD,"ES
  168. 1320 [153]" PRESS ANY KEYWAIT TO RETURN TO MENU"
  169. 1322 [161]A$:[139]A$[178]""[167]1322
  170. 1324 ET[178]8:[160]5:[160]15:[142]
  171.